home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / cleo.lzh / Cleo / examples / dur.cl < prev    next >
Encoding:
Text File  |  1993-01-24  |  449 b   |  28 lines
  1. program Essai;     { verifié par Boss }
  2.  
  3. var
  4.     b,e       :   boolean;
  5.     n: integer;
  6.     i,r       : real;
  7.  
  8. begin
  9.     e := 1;
  10.     i:=1;
  11.  
  12.     repeat
  13.         writeln( 'i=',i);
  14.         i := i+0.9998e-3-sin(2*i);
  15.     until i>12 ;
  16.  
  17.     while i<12 do
  18.         begin
  19.             e :=  b*5-sin(9*cos(n));
  20.             writeln;
  21.         end;
  22.     if b=13.2 then
  23.        begin
  24.             writeln;
  25.             n:=n+1;
  26.             b:=2*3-sin(r);
  27.        end;
  28. end.